home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / doc / examples / paned_window.tcl < prev    next >
Text File  |  1995-06-29  |  731b  |  29 lines
  1. #! moat
  2.  
  3. xtAppInitialize
  4.  
  5. xmPanedWindow .top managed
  6.  
  7. xmScrolledText .top.txt managed \
  8.     -height 106 \
  9.     -editMode multi_line_edit \
  10.     -value \
  11. "A panned window is a composite widget used to layout\nseveral children vertically, each in its own pane.\nPane sepators have a handle to interactively change\nthe amont of vertical space given to each children.\n\n\window{paned_window}\n"
  12.  
  13. xmScrolledList .top.list managed \
  14.     -width 568 \
  15.     -items {Windows, Widgets, Gadgets, Buttons} \
  16.     -itemCount 4
  17.  
  18. xmFrame .top.f managed
  19. xmRowColumn .top.f.rc managed \
  20.     -orientation horizontal \
  21.     -radioBehavior true
  22.  
  23. xmToggleButton .top.f.rc.1 managed
  24. xmToggleButton .top.f.rc.2 managed
  25. xmToggleButton .top.f.rc.3 managed
  26.  
  27. . realizeWidget
  28. . mainLoop
  29.